home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
scrbuild.zip
/
CODE.TXT
next >
Wrap
Text File
|
1991-10-16
|
3KB
|
123 lines
CLS
COLOR 7 , 0
FOR i = 1 TO 23
LOCATE i, 1
PRINT STRING$(79, 178)
NEXT
FOR i = 1 TO 6 'print basic box
IF i = 1 OR i = 6 THEN
LOCATE i, 12 , 0
COLOR 7 , 0
PRINT STRING$( 55 , 219 ) 'bottom edge
ELSE 'else print sides
LOCATE i, 12
PRINT CHR$( 219 )
LOCATE i, 66
PRINT CHR$( 219 )
LOCATE i, 13
PRINT STRING$( 53 , 32)
END IF
NEXT
'add shadowing
FOR i = 2 TO 7
'add right edge
LOCATE i, 67
PRINT STRING$(2, 177 )
IF i > 6 THEN 'print bottom
LOCATE i, 14
PRINT STRING$( 54 , 177 )
END IF
NEXT
FOR i = 9 TO 21 'print basic box
IF i >= 9 OR i <= 21 THEN 'print box filler
LOCATE i , 62 , 0
COLOR 7 , 1
PRINT STRING$( 13 , 219 )
END IF
NEXT
'add shadowing
FOR i = 10 TO 22 'add right edge
LOCATE i, 75
PRINT STRING$(2, 177 )
IF i > 21 THEN 'print bottom
LOCATE i, 64
PRINT STRING$( 12 , 177 )
END IF
NEXT
CLS
COLOR 7 , 0
FOR i = 1 TO 23
LOCATE i, 1
PRINT STRING$(79, 178)
NEXT
FOR i = 9 TO 21 'print basic box
IF i = 9 OR i = 21 THEN
LOCATE i, 26 , 0
COLOR 7 , 0
PRINT STRING$( 32 , 219 ) 'bottom edge
ELSE 'else print sides
LOCATE i, 26
PRINT CHR$( 219 )
LOCATE i, 57
PRINT CHR$( 219 )
LOCATE i, 27
PRINT STRING$( 30 , 32)
END IF
NEXT
'add shadowing
FOR i = 10 TO 22
'add right edge
LOCATE i, 58
PRINT STRING$(2, 177 )
IF i > 21 THEN 'print bottom
LOCATE i, 28
PRINT STRING$( 31 , 177 )
END IF
NEXT
CLS
COLOR 7 , 0
FOR i = 1 TO 23
LOCATE i, 1
PRINT STRING$(79, 178)
NEXT
FOR i = 9 TO 14 'print basic box
IF i = 9 OR i = 14 THEN
LOCATE i, 6 , 0
COLOR 7 , 0
PRINT STRING$( 13 , 219 ) 'bottom edge
ELSE 'else print sides
LOCATE i, 6
PRINT CHR$( 219 )
LOCATE i, 18
PRINT CHR$( 219 )
LOCATE i, 7
PRINT STRING$( 11 , 32)
END IF
NEXT
'add shadowing
FOR i = 10 TO 15
'add right edge
LOCATE i, 19
PRINT STRING$(2, 177 )
IF i > 14 THEN 'print bottom
LOCATE i, 8
PRINT STRING$( 12 , 177 )
END IF
NEXT
FOR i = 17 TO 21 'print basic box
IF i >= 17 OR i <= 21 THEN 'print box filler
LOCATE i , 2 , 0
COLOR 7 , 1
PRINT STRING$( 21 , 219 )
END IF
NEXT
'add shadowing
FOR i = 18 TO 22 'add right edge
LOCATE i, 23
PRINT STRING$(2, 177 )
IF i > 21 THEN 'print bottom
LOCATE i, 4
PRINT STRING$( 20 , 177 )
END IF
NEXT